From: Jim Blandy <jimb@redhat.com>
Date: Sun, 4 Jul 1993 01:53:24 +0000 (+0000)
Subject: * frame.c (Fredirect_frame_focus): Allow redirection of focus of
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95090
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=1314409546d308c46c91d85b7e85c52c9dda6ef9;p=emacs.git

* frame.c (Fredirect_frame_focus): Allow redirection of focus of
	dead frames.
---

diff --git a/src/frame.c b/src/frame.c
index 78e24ead006..e706283a0b2 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -980,7 +980,10 @@ The redirection lasts until `redirect-frame-focus' is called to change it.")
   (frame, focus_frame)
     Lisp_Object frame, focus_frame;
 {
-  CHECK_LIVE_FRAME (frame, 0);
+  /* Note that we don't check for a live frame here.  It's reasonable
+     to redirect the focus of a frame you're about to delete, if you
+     know what other frame should receive those keystrokes.  */
+  CHECK_FRAME (frame, 0);
 
   if (! NILP (focus_frame))
     CHECK_LIVE_FRAME (focus_frame, 1);